home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 162 / Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_D.d64 / endgag [tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  240b  |  8 lines
  1. 10 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  2. 15 iff=15thensys65484:close1:goto60
  3. 20 geta$,a$,h$,l$:ifstthensys65484:close1:goto60
  4. 30 printasc(h$+e$)+256*asc(l$+e$);
  5. 40 geta$,b$:ifa$thenprinta$b$;:goto40
  6. 50 printa$:f=f+1:goto15
  7. 60 poke198,0:wait198,1:poke198,0:print"load "tab(24)",8:[145][145][145]":end
  8.